01 LBL "D2" 
02 MDY 
03 RCL X 
04 146097 
05 MOD 
06 STO M 
07 ST- Y 
08 X<> L 
09 / 
10 400 
11 * 
12 X<> M 
13 1.012 
14 X<>Y 
15 DATE+ 
16 E2 
17 * 
18 ENTER^ 
19 FRC 
20 ST- Y 
21 E4 
22 ST/ Z 
23 * 
24 0 
25 X<> M 
26 + 
27 STO Z 
28 SIGN 
29 * 
30 + 
31 DMY
32 END 
